home *** CD-ROM | disk | FTP | other *** search
/ DS-CD ROM 2 1993 August / DS CD-ROM 2.Ausgabe (August 1993).iso / geschaef / ds0093 / topfakt / artlist2.for < prev    next >
Text File  |  1993-06-30  |  2KB  |  49 lines

  1. /FORMULAR Preisliste mit Ek.Pr.
  2. ^17
  3. !LINKER RAND 15
  4. ^12^BPreisliste Einkauf ^b^17
  5.                                                                                        Seite: #SEITE:8:0
  6.                                                                                        Stand: #DATUM
  7. ──────────────────────────────────────────────────────────────────────────────────────────────────────
  8. ArtikelNr. Bezeichnung                    Einheit   Mwst  Faktor      Netto EK    Netto VK   Brutto VK
  9. //34567890 123456789012345678901234567890  12345  12345 % 123456 % 12345678901 12345678901 12345678901
  10. ──────────────────────────────────────────────────────────────────────────────────────────────────────
  11. !LISTE:60
  12. #ART_NR    #ART_NAME:30                    #Einh  #St:5 % #Gew:6 % #NettoEK:11 #NettoVK:11 #BruttoVK:11
  13.            #Art_text:30
  14. /
  15. !#Anz:= #Anz+ 1                     // Zähle die Anzahl der gedruckten Artikel...
  16. !#SummeNettoEK:= #SummeNettoEK+ #NettoEK
  17. !#SummeNettoVK:= #SummeNettoVK+ #NettoVK
  18. !#SummeBruttoVK:=#SummeBruttoVK+ #BruttoVK
  19. /
  20. !ENDELISTE
  21. /
  22. !WENN #LetzteSeite
  23. ──────────────────────────────────────────────────────────────────────────────────────────────────────
  24. Anzahl der aufgelisteten Artikel: #ANZ:8:0                Summe:   #SummeNettoEK:11 #SummeNettoVK:11 #SummeBruttoVK:11
  25. !ENDE WENN
  26. !SEITENAUSWURF
  27. !FORMULARENDE
  28.  
  29.  
  30. !PLATZHALTER
  31.   #ART_NR ,          art->Art_nr
  32.   #ART_NAME ,        art->Art_name            // Kurzbezeichnung
  33.   #ART_TEXT ,        art->art_text            // Ausführlicher Text
  34.   #ART_BEMERKUNG ,   Trim( art->BEMERKUNG)
  35.   #Einh,             art->MengenEinh
  36.  
  37.   #St,               Mwst( art->mwsatz)       // Mwst in Prozent
  38.   #Gew,              IF( #NettoEK= 0, 0, #NettoVK / #NettoEK * 100 - 100)
  39.   #NettoEK,          art->einkaufpr
  40.   #NettoVK,          art->NettoVerk
  41.   #BruttoVK ,        art->BruttoVerk
  42.  
  43.   #BESTAND,          art->bestand
  44.  
  45.   #Anz,              nAnz                     // nur zum Zählen der Artikel
  46.   #SummeNettoEK,     SumNetEk
  47.   #SummeNettoVK,     SumNetVk
  48.   #SummeBruttoVK,    SumBrutVk
  49. !ENDE PLATZHALTER